﻿Imports EntityLayer
Imports BusinessLayer

Imports System.Data

Partial Class ReporteProductosStock
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ListarProducto()
        End If
    End Sub

    Private Sub ListarProducto()
        ddlProducto.DataSource = ProductoBL.ListarProductos
        ddlProducto.DataValueField = "CODIGO"
        ddlProducto.DataTextField = "NOMBRE"
        ddlProducto.DataBind()

        ddlProducto.Items.Insert(0, New ListItem("- TODOS LOS PRODUCTOS -", "0"))

    End Sub

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Session("TipoReporte") = "2"

        Dim dtResultados1 As DataTable
        dtResultados1 = ProductoBL.ListarStockActualProducto(ddlProducto.SelectedValue).Tables(0)

        Session("Resultados") = dtResultados1
        ScriptManager.RegisterClientScriptBlock(Me.PanelMantenimiento, Me.GetType, "PopupScript", "window.open('ReporteGeneral.aspx','','channelmode=1,status=no,scrollbars=yes,resizable=yes,toolbar=no,width=880,height=650');", True)
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Response.Redirect("Principal.aspx")
    End Sub
End Class
